#!/usr/bin/perl

use XML::Simple;

my $ref = XMLin("files/description.xml");

#use Data::Dumper;

#print Dumper(\$ref);

$ver = $ref->{version}->{value};
$ver =~ s/\./_/g;

print $ver;
